<!--#include file="incpollmentor.asp"-->
<!--#include file="admin_includelogin.asp"-->
<%
Dim id
Dim count1, answer1
Dim count2, answer2
Dim count3, answer3
Dim count4, answer4
Dim count5, answer5
Dim count6, answer6
Dim count7, answer7
Dim count8, answer8
Dim count9, answer9
Dim count10, answer10
Dim count11, answer11
Dim count12, answer12
Dim count13, answer13
Dim count14, answer14
Dim count15, answer15
Dim count16, answer16
Dim count17, answer17
Dim count18, answer18
Dim count19, answer19

count1 = Request.Form("count1")
answer1 = Request.Form("answer1")
count2 = Request.Form("count2")
answer2 = Request.Form("answer2")
count3 = Request.Form("count3")
answer3 = Request.Form("answer3")
count4 = Request.Form("count4")
answer4 = Request.Form("answer4")
count5 = Request.Form("count5")
answer5 = Request.Form("answer5")
count6 = Request.Form("count6")
answer6 = Request.Form("answer6")
count7 = Request.Form("count7")
answer7 = Request.Form("answer7")
count8 = Request.Form("count8")
answer8 = Request.Form("answer8")
count9 = Request.Form("count9")
answer9 = Request.Form("answer9")
count10 = Request.Form("count10")
answer10 = Request.Form("answer10")
count11 = Request.Form("count11")
answer11 = Request.Form("answer11")
count12 = Request.Form("count12")
answer12 = Request.Form("answer12")
count13 = Request.Form("count13")
answer13 = Request.Form("answer13")
count14 = Request.Form("count14")
answer14 = Request.Form("answer14")
count15 = Request.Form("count15")
answer15 = Request.Form("answer15")
count16 = Request.Form("count16")
answer16 = Request.Form("answer16")
count17 = Request.Form("count17")
answer17 = Request.Form("answer17")
count18 = Request.Form("count18")
answer18 = Request.Form("answer18")
count19 = Request.Form("count19")
answer19 = Request.Form("answer19")


	Dim oConn
    Set oConn = PollMentor_GetDatabaseConn()
    Dim oRS
    
    
	If Request.QueryString("save")="yes" Then
		Set oRS = Server.CreateObject("ADODB.Recordset")
		
		Dim sID
		sID = Request.QueryString("id")
		If sID = "" Then
			sID = 0
		Else
			sID = CInt( sID)
		End If
		
		oRS.Open "select * from " & Poll_GetTablePrefix()& "poll where id = " & sID, oConn, 1, 3
		
		If Request.QueryString("action") = "new" Or Request.QueryString("action") ="edit" Then
			If Request.QueryString("action") = "new"  Then
				oRS.AddNew
			End If
			If count1 = "" Then
				count1=0
			End If
			oRS("count1") = count1
			oRS("answer1") = answer1
			If count2 = "" Then
				count2=0
			End If
			oRS("count2") = count2
			oRS("answer2") = answer2
			If count3 = "" Then
				count3=0
			End If
			oRS("count3") = count3
			oRS("answer3") = answer3
			If count4 = "" Then
				count4=0
			End If
			oRS("count4") = count4
			oRS("answer4") = answer4
			If count5 = "" Then
				count5=0
			End If
			oRS("count5") = count5
			oRS("answer5") = answer5
			If count6 = "" Then
				count6=0
			End If
			oRS("count6") = count6
			oRS("answer6") = answer6
			If count7 = "" Then
				count7=0
			End If
			oRS("count7") = count7
			oRS("answer7") = answer7
			If count8 = "" Then
				count8=0
			End If
			oRS("count8") = count8
			oRS("answer8") = answer8
			If count9 = "" Then
				count9=0
			End If
			oRS("count9") = count9
			oRS("answer9") = answer9
			If count10 = "" Then
				count10=0
			End If
			oRS("count10") = count10
			oRS("answer10") = answer10
			If count11 = "" Then
				count11=0			
			End If
			oRS("count11") = count11
			oRS("answer11") = answer11
			If count12 = "" Then
				count12=0
			End If
			oRS("count12") = count12
			oRS("answer12") = answer12
			If count13 = "" Then
				count13=0
			End If
			oRS("count13") = count13
			oRS("answer13") = answer13
			If count14 = "" Then
				count14=0
			End If
			oRS("count14") = count14
			oRS("answer14") = answer14
			If count15 = "" Then
				count15=0
			End If
			oRS("count15") = count15
			oRS("answer15") = answer15
			If count16 = "" Then
				count16=0
			End If
			oRS("count16") = count16
			oRS("answer16") = answer16
			If count17 = "" Then
				count17=0
			End If
			oRS("count17") = count17
			oRS("answer17") = answer17
			If count18 = "" Then
				count18=0
			End If
			oRS("count18") = count18
			oRS("answer18") = answer18
			If count19 = "" Then
				count19=0
		   End If
			oRS("count19") = count19
			oRS("answer19") = answer19	
			oRS("question") = Request.Form("question")
		End If
		If Request.QueryString("action") = "del"  Then
				oRS.Delete
		Else
			oRS.Update
		End If
		oRS.Close
	Set oRS = Nothing
	oConn.Close
	Set oConn = Nothing
	Response.Redirect "admin_default.asp"
	End If
%>

<html>

<head>
<%
If Request.QueryString("action") = "edit" Then
	Dim oRS2
	Set oRS2 = oConn.Execute( "select * from "  & Poll_GetTablePrefix()  & "poll where id = " & Request.QueryString("id") )
	question = oRS2("question")
	answer1 = oRS2("answer1")
	count1 = oRS2("count1")
	answer2 = oRS2("answer2")
	count2 = oRS2("count2")
	answer3 = oRS2("answer3")
	count3 = oRS2("count3")
	answer4 = oRS2("answer4")
	count4 = oRS2("count4")
	answer5 = oRS2("answer5")
	count5 = oRS2("count5")
	answer6 = oRS2("answer6")
	count6 = oRS2("count6")
	answer7 = oRS2("answer7")
	count7 = oRS2("count7")
	answer8 = oRS2("answer8")
	count8 = oRS2("count8")
	answer9 = oRS2("answer9")
	count9 = oRS2("count9")
	answer10 = oRS2("answer10")
	count10 = oRS2("count10")
	answer11 = oRS2("answer11")
	count11 = oRS2("count11")
	answer12 = oRS2("answer12")
	count12 = oRS2("count12")
	answer13 = oRS2("answer13")
	count13 = oRS2("count13")
	answer14 = oRS2("answer14")
	count14 = oRS2("count14")
	answer15 = oRS2("answer15")
	count15 = oRS2("count15")
	answer16 = oRS2("answer16")
	count16 = oRS2("count16")
	answer17 = oRS2("answer17")
	count17 = oRS2("count17")
	answer18 = oRS2("answer18")
	count18 = oRS2("count18")
	answer19 = oRS2("answer19")
	count19 = oRS2("count19")

	oRS2.Close
Else
End If
%>


<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PostcardMentor - Admin interface</title>
<style type="text/css">
<!--
     body {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     td {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     th {  font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table align="center" bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
  <tbody>
    <tr>
      <td vAlign="top" width="50%" height="60">
      Ą@</td>
      <td vAlign="top" width="468" height="60">
      <b><font face="verdana,arial,helvetica" size="+2">Admin
      interface</font></b>
      <table border="0" width="100%">
        <tr>
                            <td width="50%">
                            </td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td height="100%" vAlign="top" width="100%" colspan="2">
        <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
          <tbody>
            <tr>
              <td height="100%" vAlign="top" width="85%">
                <table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
                  <tbody>
                    <tr>
                      <td align="left" height="100%" vAlign="top" width="65%">
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%">Ą@</td>
                            <td width="50%">
                            <%=FAQ_GetAd(1)
                            %>
                            </td>
                          </tr>
                        </table>
                        <hr color="#000066" noShade SIZE="1">
                             
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="70%">
                             
                        <p align="left"><b>Questions</b><br>
                        <%
                        Dim sURL
                        sURL = "admin_poll.asp?save=yes&action=" & Request.QueryString("action")
                       	sURL = sURL & "&id=" & Request.QueryString("id") 
                        %>
                        <form method="POST" action="<%=sURL%>">
                          <table border="1" width="100%">
                            <tr>
                              <td width="29%">Text:</td>
                              <td width="71%"><input type="text" name="question" size="40" value="<%=question%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 1:<br>
 <input type="text" name="answer1" size="20" value="<%=answer1%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count1" size="20" value="<%=count1%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 2:<br>
 <input type="text" name="answer2" size="20" value="<%=answer2%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count2" size="20" value="<%=count2%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 3:<br>
 <input type="text" name="answer3" size="20" value="<%=answer3%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count3" size="20" value="<%=count3%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 4:<br>
 <input type="text" name="answer4" size="20" value="<%=answer4%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count4" size="20" value="<%=count4%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 5:<br>
 <input type="text" name="answer5" size="20" value="<%=answer5%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count5" size="20" value="<%=count5%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 6:<br>
 <input type="text" name="answer6" size="20" value="<%=answer6%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count6" size="20" value="<%=count6%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 7:<br>
 <input type="text" name="answer7" size="20" value="<%=answer7%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count7" size="20" value="<%=count7%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 8:<br>
 <input type="text" name="answer8" size="20" value="<%=answer8%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count8" size="20" value="<%=count8%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 9:<br>
 <input type="text" name="answer9" size="20" value="<%=answer9%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count9" size="20" value="<%=count9%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 10:<br>
 <input type="text" name="answer10" size="20" value="<%=answer10%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count10" size="20" value="<%=count10%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 11:<br>
 <input type="text" name="answer11" size="20" value="<%=answer11%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count11" size="20" value="<%=count11%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 12:<br>
 <input type="text" name="answer12" size="20" value="<%=answer12%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count12" size="20" value="<%=count12%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 13:<br>
 <input type="text" name="answer13" size="20" value="<%=answer13%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count13" size="20" value="<%=count13%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 14:<br>
 <input type="text" name="answer14" size="20" value="<%=answer14%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count14" size="20" value="<%=count14%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 15:<br>
 <input type="text" name="answer15" size="20" value="<%=answer15%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count15" size="20" value="<%=count15%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 16:<br>
 <input type="text" name="answer16" size="20" value="<%=answer16%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count16" size="20" value="<%=count16%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 17:<br>
 <input type="text" name="answer17" size="20" value="<%=answer17%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count17" size="20" value="<%=count17%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 18:<br>
 <input type="text" name="answer18" size="20" value="<%=answer18%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count18" size="20" value="<%=count18%>"></td>
                            </tr>
                            <tr>
                              <td width="29%">Answer 19:<br>
 <input type="text" name="answer19" size="20" value="<%=answer19%>"></td>
                              <td width="71%">Nr of votes:<br>
                                <input type="text" name="count19" size="20" value="<%=count19%>"></td>
                            </tr>
                          </table>
                          <p align="left"><input type="submit" value="Submit" name="B1"></p>
                        </form>
                            
                        <p>Ą@</p>
                        <br>
                             
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%">
                             <%=FAQ_GetAd(3)
                             %>
                            </td>
                            <td width="50%">
                            <%=FAQ_GetAd(2)
                            %>
                            </td>
                          </tr>
                        </table>
                          </tr>
                          <tr>
                            <td width="70%">
                             
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>

</body>

</html>